home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1998 August / macformat-066.iso / How-to's / Sound Basics / Cubasis AV trial / Cubasis AV DEMO / Cubasis AV DEMO.rsrc / CUBP_128_PostScript Dictionary < prev    next >
Encoding:
Text File  |  1997-07-17  |  3.8 KB  |  188 lines
  1. %Cubase PostScript Dictionary
  2. userdict begin
  3. /m /moveto load def
  4. /L/lineto load def
  5. /rL /rlineto load def
  6. /t /show load def
  7. /w /setlinewidth load def
  8. /C /curveto load def
  9. /s  /gsave load def
  10. /r /grestore load def
  11. /S /stroke load def
  12. /e /eofill load def
  13. /ff /findfont load def
  14. /scf /scalefont load def
  15. /stf /setfont load def
  16. /np /newpath load def
  17. /sg /setgray load def
  18. /sd /setdash load def
  19. /sw /stringwidth load def
  20. /cp /closepath load def
  21. /rect {
  22. 1 index 0 rL
  23. 0 exch rL
  24. neg 0 rL
  25. cp
  26. } def
  27. /manual { statusdict begin /manualfeed true def end } def
  28.  
  29. /elw { transform round exch round exch itransform } def
  30.  
  31. /getfont {exch dup FontDirectory exch known {pop pop}{buildfont} ifelse } def
  32.  
  33. % Font-Size
  34. /FS 0. def
  35. /NewMatrix { makefont setfont} bind def
  36. /str 256 string def
  37. /deltaShadowX {FS 3. mul 80. div} def
  38. /deltaShadowY {FS 3. mul 80. div} def
  39. /deltaUnderlineWidth {FS  3. mul 72. div} def
  40. /deltaItalic {FS 16. mul 72. div} def
  41.  
  42. /Outline {true charpath stroke} bind def
  43.  
  44. /ShadowString{ 
  45.     gsave
  46.     /dY exch  def
  47.     /dX exch def
  48.     /str exch def
  49.     /Y0 exch def
  50.     /X0 exch def
  51.     /dX X0 dX add def
  52.     /dY Y0 dY sub def
  53.     np 0 sg
  54.     dX dY elw m
  55.     str show
  56.     1 sg
  57.     X0 Y0 elw m
  58.     str show
  59.     0 sg
  60.     X0 Y0 elw m
  61.     str Outline
  62.     grestore
  63. } def
  64.  
  65. /OutlineString{ 
  66.     gsave
  67.     /str exch def
  68.     /Y0 exch def
  69.     /X0 exch def
  70.     X0  Y0 elw m
  71.     str Outline
  72.     grestore
  73. } def
  74.  
  75. /DrawString{ 
  76.     gsave
  77.     /str exch def
  78.     /Y0 exch def
  79.     /X0 exch def
  80.      X0  Y0 elw m
  81.     str show
  82.     grestore
  83. } def
  84.  
  85. %Normal Underline
  86. /Underline
  87. {
  88.     /width exch neg def    
  89.     /str exch def
  90.     /y0  exch def
  91.     /x0 exch def
  92.     str sw /y1 exch def /x1 exch def
  93.     x0 y0 elw m
  94.     x1 width elw rect
  95.     fill
  96. } def
  97.  
  98. %Contour Underline
  99. /CUnderline
  100. {
  101.     gsave    
  102.     /width exch neg def    
  103.     /str exch def
  104.     /y0  exch def
  105.     /x0 exch def
  106.     str sw /y1 exch def /x1 exch def
  107.     x0 y0 elw m
  108.     x1 width elw rect stroke
  109.     grestore
  110. } def
  111.  
  112. %Shadow Underline
  113. /SUnderline
  114. {
  115.     /width exch neg def    
  116.     /dy exch def    
  117.     /str exch def
  118.     /y0  exch def
  119.     /x0 exch def
  120.     /dx {FS  6. mul 192. div} def
  121.     /dy2 {FS  6. mul 192. div} def
  122.  
  123.     /y2 y0 dy sub dy2 sub def
  124.  
  125.     str sw exch /x1 exch def
  126.     np 0 sg
  127.     x0 y2 elw m
  128.     x1 width elw rect
  129.     fill
  130.     /y2 y0 dy sub def
  131.     /x0 x0 dx sub def
  132.     1 sg
  133.     x0 y2 elw m
  134.     x1 width elw rect
  135.     fill
  136.     0 sg
  137.     x0 y2 elw m
  138.     x1 width elw rect
  139.     stroke
  140. } def
  141.  
  142. /Circle
  143. {
  144.     1 scale
  145.     0 360 arc
  146. } def
  147.  
  148. /buildfont { dup 256 string cvs (|______) anchorsearch pop pop
  149. cvn findfont
  150. dup length dict /newfont exch def
  151. { 1 index /FID ne
  152.   {newfont 3 1 roll put}    
  153.   {pop pop} ifelse    
  154. } forall
  155. exch
  156. {newfont begin
  157. /Encoding Encoding 256 array copy def
  158. 0 MacVectors
  159. { dup type /nametype eq    
  160.   { Encoding 2 index 2 index put pop 
  161.     1 add }
  162.   { exch pop } ifelse
  163. } forall
  164. pop    
  165. end} if    
  166. newfont definefont pop
  167. } bind def    % end of buildfont
  168.  
  169. /MacVectors [ 39/quotesingle 96/grave 128/Adieresis/Aring/Ccedilla/Eacute/Ntilde/Odieresis
  170. /Udieresis/aacute/agrave/acircumflex/adieresis/atilde/aring/ccedilla/eacute
  171. /egrave/ecircumflex/edieresis/iacute/igrave/icircumflex/idieresis/ntilde
  172. /oacute/ograve/ocircumflex/odieresis/otilde/uacute/ugrave/ucircumflex
  173. /udieresis/dagger/degree/cent/sterling/section/bullet/paragraph/germandbls
  174. /registered/copyright/trademark/acute/dieresis/.notdef/AE/Oslash
  175. /.notdef/plusminus/.notdef/.notdef/yen/mu/.notdef/.notdef
  176. /.notdef/.notdef/.notdef/ordfeminine/ordmasculine/.notdef/ae/oslash
  177. /questiondown/exclamdown/logicalnot/.notdef/florin/.notdef/.notdef
  178. /guillemotleft/guillemotright/ellipsis/.notdef/Agrave/Atilde/Otilde/OE/oe
  179. /endash/emdash/quotedblleft/quotedblright/quoteleft/quoteright/divide
  180. /.notdef/ydieresis/Ydieresis/fraction/currency/guilsinglleft/guilsinglright
  181. /fi/fl/daggerdbl/periodcentered/quotesinglbase/quotedblbase/perthousand
  182. /Acircumflex/Ecircumflex/Aacute/Edieresis/Egrave/Iacute/Icircumflex
  183. /Idieresis/Igrave/Oacute/Ocircumflex/.notdef/Ograve/Uacute/Ucircumflex
  184. /Ugrave/dotlessi/circumflex/tilde/macron/breve/dotaccent/ring/cedilla
  185. /hungarumlaut/ogonek/caron ] def
  186. %%EndProlog
  187. %%Page: 1
  188.